home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / quiz.dxr / 00029.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  485 b   |  24 lines
  1. on mouseUp
  2.   cursorOff()
  3.   repeat with n = 48 to 57
  4.     put EMPTY into field n
  5.   end repeat
  6.   repeat with n = 5 to 14
  7.     set the member of sprite n to member 61 of castLib "QuizPics"
  8.   end repeat
  9.   set x to random(5)
  10.   case x of
  11.     1:
  12.       sound playFile 2, "klunk#2.wav"
  13.     2:
  14.       sound playFile 2, "squash.wav"
  15.     3:
  16.       sound playFile 2, "Mclunk1.wav"
  17.     4:
  18.       sound playFile 2, "Splurge.wav"
  19.     5:
  20.       sound playFile 2, "Pulse01.wav"
  21.   end case
  22.   go("scores2")
  23. end
  24.